www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\urlGo.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--
┌─ 深度学习(asp)网址导航  ────────────────────┐
│ 
│  感谢你使用 深度学习(asp)网址导航 
│  本代码完全公开和免费，你可以任意复制、传播、修改和使用，
│  但不得公开发表代码 不得用做商业用途，不得向其他使用者收费。 
│  
│  使用时，请保留此段信息，谢谢配合      
│       
│                        作者：吕海鹏      2006/3/30
│ 
└──────────────────  www.DeepTeach.com  ───┘
-->
<!--#include file="connDB.asp"-->
<!--#include file="include/Deep.Class.Template.asp"-->
<!--#include file="include/function.tag.common.asp"-->

<%
id=request.QueryString("id")
if id="" then 
	response.Redirect("/")
end if
'-----网址--------------
Set rsWebUrl=Server.CreateObject("Adodb.Recordset")
sqlC="select  * from deep_WebUrl where fpassed=1 and fid=" & id
rsWebUrl.open sQLC,conn,0,1

if rsWebUrl.Eof and rsWebUrl.Bof then
	response.Redirect("/")
else
	furl=rsWebUrl("furl")
	fname=rsWebUrl("fname")
end if
rsWebUrl.Close
Set rsWebUrl=Nothing
'-------------------------------------	
	dim oDeepTemplate
	set oDeepTemplate=new Deep_Template

		oDeepTemplate.templates_dir="themes/"&site_theme&"/"
		'template=oDeepTemplate.readTemplateFile("index.htm")
		oDeepTemplate.readTemplateFile("urlGo.template.html")	'调入文件

		oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css"
		
		do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签

		oDeepTemplate.replaceTag "urlGo_url",furl
		oDeepTemplate.replaceTag "urlGo_name",fname

		oDeepTemplate.display()	'显示


	set oDeepTemplate=Nothing
'-------------------------------------	

Call CloseConnDB()
%>